home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)td.d64 / func.last < prev    next >
Text File  |  2007-02-28  |  328b  |  15 lines
  1. 0010 ╞╒╬├ LAST(╥┼╞ ARRAY()) ├╠╧╙┼─
  2. 0020   // COUNTS THE ELEMENTS IN A
  3. 0030   // ONE DIMENSIONAL ARRAY
  4. 0040   // WHOSE LOWEST INDES IS (1).
  5. 0050   ╘╥┴╨ 
  6. 0060     COUNT:=0
  7. 0070     ╠╧╧╨ 
  8. 0080       COUNT:+1
  9. 0090       DUMMY:=ARRAY(COUNT)
  10. 0100     ┼╬─╠╧╧╨ 
  11. 0110   ╚┴╬─╠┼╥ 
  12. 0120     ╥┼╘╒╥╬ COUNT-1
  13. 0130   ┼╬─╘╥┴╨ 
  14. 0140 ┼╬─╞╒╬├ LAST
  15.